QRZ! Ham Radio 8/QRZ Ham Radio Callsign Database - Volume 8.iso/pc/src/qrzdemo.frm

Text File | 1996-06-25 | 8KB | 303 lines

VERSION 2.00
Begin Form QRZDemo
   BackColor       =   &H00C0C0C0&
   Caption         =   "QRZ Sample Application"
   ClientHeight    =   3372
   ClientLeft      =   792
   ClientTop       =   1992
   ClientWidth     =   6420
   FillColor       =   &H00FFFFFF&
   Height          =   4116
   Left            =   744
   LinkTopic       =   "QRZDemo"
   ScaleHeight     =   3372
   ScaleWidth      =   6420
   Top             =   1296
   Width           =   6516
   Begin CommandButton Command7
      Caption         =   ">>"
      Height          =   312
      Left            =   2640
      TabIndex        =   10
      Top             =   1440
      Width           =   672
   End
   Begin CommandButton Command6
      Caption         =   "<<"
      Height          =   312
      Left            =   300
      TabIndex        =   9
      Top             =   1440
      Width           =   672
   End
   Begin CommandButton Command5
      Caption         =   "Continue"
      Height          =   312
      Left            =   4500
      TabIndex        =   8
      Top             =   2520
      Width           =   1032
   End
   Begin CommandButton Command4
      Caption         =   "Count"
      Height          =   312
      Left            =   4440
      TabIndex        =   7
      Top             =   1440
      Width           =   732
   End
   Begin CommandButton Command3
      Caption         =   "<"
      Height          =   312
      Left            =   1080
      TabIndex        =   0
      Top             =   1440
      Width           =   672
   End
   Begin CommandButton Command2
      Caption         =   ">"
      Height          =   312
      Left            =   1860
      TabIndex        =   5
      Top             =   1440
      Width           =   672
   End
   Begin CommandButton Command1
      Caption         =   "Search"
      Default         =   -1  'True
      Height          =   312
      Left            =   3300
      TabIndex        =   4
      Top             =   2520
      Width           =   1032
   End
   Begin TextBox Text2
      Height          =   288
      Left            =   1860
      TabIndex        =   2
      Text            =   "a"
      Top             =   2520
      Width           =   1272
   End
   Begin TextBox Text1
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Letter Gothic"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1212
      Left            =   120
      MultiLine       =   -1  'True
      TabIndex        =   1
      Text            =   "To Begin, Click on the 'Search' button below."
      Top             =   60
      Width           =   6192
   End
   Begin Label Label5
      BackStyle       =   0  'Transparent
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   312
      Left            =   2100
      TabIndex        =   13
      Top             =   2040
      Width           =   4272
   End
   Begin Label Label4
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   18
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   432
      Left            =   60
      TabIndex        =   12
      Top             =   1920
      Width           =   2052
   End
   Begin Label Label3
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Height          =   252
      Left            =   120
      TabIndex        =   11
      Top             =   3000
      Width           =   6192
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "0000"
      Height          =   192
      Left            =   5220
      TabIndex        =   6
      Top             =   1500
      Width           =   732
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Callsign:"
      Height          =   252
      Left            =   840
      TabIndex        =   3
      Top             =   2580
      Width           =   972
   End
   Begin Menu MenuExit
      Caption         =   "E&xit"
   End
   Begin Menu MenuAbout
      Caption         =   "&About..."
   End
End
Option Explicit

Dim StopQRZ As Integer
Dim Spinning As Integer

Sub Command1_Click ()
    Dim tmp As String

    StopQRZ = True
    Label3.Caption = ""
    tmp = Text2.Text
    ReturnLen = QRZSearch(QRZCALL, tmp, "", "", Found, DISP_FMT)
    Label2.Caption = QRZGetCount()
    DisplayRecord

End Sub

Sub Command2_Click ()

    ' Here we advance one record
    ReturnLen = QRZAdvance(1, Found, DISP_FMT)
    DisplayRecord

End Sub

Sub Command3_Click ()

    ' Back up one record
    ReturnLen = QRZBack(1, Found, DISP_FMT)
    DisplayRecord

End Sub

Sub Command4_Click ()

    Dim More As Integer
    StopQRZ = True
    Do
        Label2.Caption = QRZCount(More)
        DoEvents    ' to update screen

    Loop While More = True

End Sub

Sub Command5_Click ()

    StopQRZ = False
    Label3.Caption = ""
    Do
        ReturnLen = QRZGetNext(Found, DISP_FMT)
        If ReturnLen > 0 Then
            DisplayRecord
            Label2.Caption = QRZGetCount()
        End If
        DoEvents
        If StopQRZ Then
            Label3.Caption = "Stopped on user request."
            Exit Do
        End If

    Loop While ReturnLen > 0

End Sub

Sub Command6_Click ()

    'Back up 100 records - The number 100 below
    'is only for illustration.  Any value > 1
    'Backs up by 100

    ReturnLen = QRZBack(100, Found, DISP_FMT)
    DisplayRecord

End Sub

Sub Command7_Click ()

    'Advance 100 records - The number 100 below
    'is only for illustration.  Any value > 1
    'advances by 100
    ReturnLen = QRZAdvance(100, Found, DISP_FMT)
    DisplayRecord

End Sub

Sub DisplayRecord ()
    Dim tmp As String
    Dim r As Integer

    If ReturnLen > 0 Then
        Text1.Text = Left$(Found, ReturnLen)
    End If
    QRZField CALLS, Found, ReturnLen
    If ReturnLen > 0 Then
        Label4.Caption = Left$(Found, ReturnLen)
    End If
    QRZField FULLNAME, Found, ReturnLen
    If ReturnLen > 0 Then
        Label5.Caption = Left$(Found, ReturnLen)
    End If

End Sub

Sub Form_Click ()
    StopQRZ = True
End Sub

Sub Form_Load ()
    Dim drive As Integer
    Dim tmp As String

    tmp = UCase$(Command$)
    drive = QRZInit(tmp)

    If drive = -1 Then
        MsgBox "QRZDLL is in use by another application.", 0, "QRZDEMO"
        End
    End If

    If drive = 0 Then
        MsgBox "Error: The QRZ Databases could not be found.", 0, "QRZDEMO"
    End If

    Label3.Caption = "Using QRZ CD in drive " & Chr$(drive) & ":"

End Sub

Sub MenuAbout_Click ()
    MsgBox "This application is designed to show" & Chr$(10) & "how QRZDLL applications are built. " & Chr$(10) & "This program is not supported by QRZ." & Chr$(10) & "Feel free to modify and/or use whatever" & Chr$(10) & "parts of it that you find useful.", 64, "QRZDEMO Application"
End Sub

Sub MenuExit_Click ()
    Dim n%

    n = QRZExit()
    ' uncomment the following to see the return value
    'MsgBox "QRZExit returned " & n, 0, "QRZDEMO"
    End
End Sub